home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / general / String.st < prev    next >
Encoding:
Text File  |  2001-03-19  |  1.8 KB  |  78 lines
  1. Class String :ArrayedCollection
  2. [
  3.    , aString
  4.       ^ <primitive 103 self 
  5.          (<primitive 6 self aString>
  6.             ifTrue:  [aString]
  7.             ifFalse: [aString printString])>
  8. |
  9.    = aString
  10.       ^ <primitive 6 self aString>
  11.          ifTrue:  [<primitive 101 self aString> = 0]
  12.          ifFalse: [self compareError]
  13. |
  14.    < aString
  15.       ^ <primitive 6 self aString>
  16.          ifTrue:  [<primitive 101 self aString> < 0]
  17.          ifFalse: [self compareError]
  18. |
  19.    <=  aString
  20.       ^ <primitive 6 self aString>
  21.          ifTrue:  [<primitive 101 self aString> <= 0]
  22.          ifFalse: [self compareError]
  23. |
  24.    >=  aString
  25.       ^ <primitive 6 self aString>
  26.          ifTrue:  [<primitive 101 self aString> >= 0]
  27.          ifFalse: [self compareError]
  28. |
  29.    >  aString
  30.       ^ <primitive 6 self aString>
  31.          ifTrue:  [<primitive 101 self aString> > 0]
  32.          ifFalse: [self compareError]
  33. |
  34.    cr
  35.       ^ <primitive 96 10> "return newline as a String"
  36. |
  37.    asSymbol
  38.       ^ <primitive 108 self>
  39. |
  40.    at: aNumber
  41.       ^ <primitive 104 self aNumber>
  42. |
  43.    at: aNumber put: aChar
  44.       <primitive 105 self aNumber aChar>
  45. |
  46.    compareError
  47.       ^ self error: 'strings can only be compared to strings'
  48. |
  49.    copyFrom: start to: stop
  50.       ^ <primitive 106 self start (stop - start + 1) >
  51. |
  52.    copyFrom: start length: len
  53.       ^ <primitive 106 self start len >
  54. |
  55.    deepCopy
  56.       ^ <primitive 107 self >
  57. |
  58.    new: size
  59.       ^ <primitive 115 size>
  60. |
  61.    printAt: aPoint
  62.       <primitive 126 self (aPoint x) (aPoint y)>
  63. |
  64.    printString
  65.       ^ <primitive 109 self>
  66. |
  67.    print
  68.       <primitive 121 self>
  69. |
  70.    size
  71.       ^ <primitive 100 self>
  72. |
  73.    sameAs: aString
  74.       ^ <primitive 6 self aString>
  75.            ifTrue:  [<primitive 102 self aString>]
  76.           ifFalse:  [self compareError]
  77. ]
  78.